home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Graphics / Photo Album1.1 / card_2942.txt < prev    next >
Text File  |  1988-05-18  |  4KB  |  201 lines
  1. -- card: 2942 from stack: in.1
  2. -- bmap block id: 2277
  3. -- flags: 4000
  4. -- background id: 2810
  5. -- name: Function Card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global cardname
  9.   global menuhid
  10.   put 0 into menuhid
  11.   show menubar
  12.   hide message box
  13.   put cardname into card field 1
  14. end openCard
  15.  
  16. on closeCard
  17.   global menuhid
  18.   put 1 into menuhid
  19.   hide menubar
  20.   hide message box
  21. end closeCard
  22.  
  23.  
  24. -- part 7 (button)
  25. -- low flags: 00
  26. -- high flags: 0000
  27. -- rect: left=14 top=29 right=66 bottom=58
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 20098 / 20098
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Go Home
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   show menubar
  39.   hide message box
  40.   visual effect iris close
  41.   go Home
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 8 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=12 top=76 right=114 bottom=59
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 32670 / 32670
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Show All Cards
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   hide menubar
  61.   get the number of last card
  62.   put it into nextolast
  63.   subtract 1 from nextolast
  64.   put 1 into it
  65.   repeat until it is nextolast or the mouseClick
  66.     visual effect dissolve
  67.     go to next card
  68.     get the number of this card
  69.     wait 2 seconds
  70.   end repeat
  71.   visual effect dissolve
  72.   go to first card
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 12 (button)
  78. -- low flags: 00
  79. -- high flags: 0000
  80. -- rect: left=79 top=76 right=115 bottom=120
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 29114 / 29114
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Return
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   hide menubar
  92.   visual effect iris close
  93.   pop card
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 16 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=80 top=30 right=66 bottom=121
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: New Card
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   set lockScreen to true
  113.   visual effect iris open
  114.   pop card
  115.   doMenu "New Card"
  116.   ask "Name of the New Card:"
  117.   set the name of this card to it
  118.   set lockScreen to false
  119.   choose browse tool
  120.   show menubar
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 18 (field)
  126. -- low flags: 01
  127. -- high flags: 0000
  128. -- rect: left=121 top=93 right=112 bottom=322
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 0
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: card name
  137.  
  138.  
  139. -- part 19 (button)
  140. -- low flags: 00
  141. -- high flags: 2000
  142. -- rect: left=153 top=30 right=66 bottom=194
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Find Card
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   ask "Find Which Card?"
  154.   put it into findcard
  155.   set the cursor to 4  -- watch cursor
  156.   put false into found
  157.   get the number of last card
  158.   put it into nextolast
  159.   subtract 1 from nextolast
  160.   -- 1 minus the last card is the next to last card
  161.   repeat until found or it is nextolast
  162.     visual effect dissolve
  163.     go to next card
  164.     get the name of this card
  165.     put offset(findcard, it) into match
  166.     -- 'card "' (7 characters) is in front of the name of the card
  167.     if match >= 7 then put true into found
  168.     get the number of this card
  169.   end repeat
  170.   if not found then
  171.     visual effect dissolve
  172.     go to first card
  173.   end if
  174.   choose browse tool
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 20 (button)
  180. -- low flags: 00
  181. -- high flags: 0000
  182. -- rect: left=222 top=31 right=67 bottom=263
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 14767 / 14767
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: 
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   visual effect dissolve
  194.   go to last card
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part contents for card part 18
  200. ----- text -----
  201. previous stack